% Test the functions makeppftfilter and applyppftfilter.
% The filter is generated without a precondtioner.
%
% Yoel Shkolnisky, December 2010.

for n=2:2:16
    A=rand(n,n,n);
    tic;B=optimizedAdjointPPFT3D(optimizedPPFT3D(A));t1=toc;
    
    H=makePPFTFilter3D(n);
    tic;
    C=applyPPFTFilter3D(A,H);
    t2=toc;
    
    err=norm(B(:)-C(:))./norm(B(:));    
    reportTestResult(n,err,t1/t2);    
end
